1 GOSUB60100
5 CLR:DIMJ$(500),G$(80):BK$="[164]"
10 FORR=54272TO54296:POKER,0:NEXT
19 POKE54274,0:POKE54275,8
28 POKE54278,240:POKE54296,0
37 POKE54277,0:POKE54276,65
46 POKE54272,63:POKE54273,72:LT=0
55 POKE53280,15:POKE53281,15:POKE646,LT
65 PRINT"[147]              [211]PEED [210]EAD"
67 PRINT"              [163][163][163][163][163][163][163][163][163]"
69 PRINT"          ([198]) [198]LASHCARDS"
71 PRINT"          ([211]) [211]TOPWATCH"
72 PRINT"          ([195]) [210][213][206] '[198]LASH [195]REATE'"
73 PRINT"          ([210]) [210]ETURN TO [204][207][193][196][211][212][193][210]"
100 GETT$:IFT$=""THEN100
109 IFT$="F"ORT$="[198]"THEN136
118 IFT$="S"ORT$="[211]"THEN1207
127 IFT$="R"ORT$="[210]"THEN1063
128 IFT$="C"ORT$="[195]"THEN8000
130 GOTO100
136 YES=0:NO=0:PRINT"[147]"
145 C%=11:GOSUB1081:PRINT"[197]NTER LEVEL  (1-8)  ";
154 GETL$:IFL$=""THEN154
163 LV=VAL(L$)
172 IF LV=0THENSP=3:GOTO244
181 LEV=1
190 FORJ=1TO8
199 LEV=LEV*10
208 IFLV<>JTHEN226
217 N$="LEVEL"+STR$(J):GOTO253
226 NEXT J
235 GOTO136
244 IFLV=0THENN$="DEMONSTRATION"
253 I=0:SP=2
262 PRINT"[147]":R%=12:C%=12:GOSUB1081
271 PRINT"[204]OADING[160]";N$
272 OPEN15,8,15,"R0:"+N$+"="+N$+"":INPUT#15,ER:CLOSE15
273 IFER=63THEN280
275 PRINT:PRINT"            [198][201][204][197] [206][207][212] [198][207][213][206][196]![144]"
276 FORA=1TO2000:NEXT:GOTO136
280 OPEN 8,8,4,""+N$+ ",R"
289 INPUT#8,K$:IF K$="/"THEN325
298 I=I+1
307 J$(I)=K$
316 GOTO289
325 CLOSE8
334 IFLV=0THEN442
343 R0=RND(-RND(0))
352 K=I-1:L=LEV*10
361 I=2*I:IFI>500THENI=500
370 FORJ=KTOI
379 M=INT(L*RND(R0))
388 IFM<LEVTHEN379
397 M$=STR$(M)
406 O$=RIGHT$(M$,LEN(M$)-1)
415 J$(J)=LEFT$(O$,LEN(O$)-1)
424 NEXTJ
433 REM DON'T GET NUMBERS FOR DEMO
442 CLOSE8
451 PRINT"[147]":C%=17:R%=3
460 IFLV=0THENC%=13
469 GOSUB1081:PRINTN$
478 C%=13:R%=4:GOSUB1081:POKE646,6
487 FORO=1TO14:PRINT"[178]";:NEXT
496 C%=13:R%=8:GOSUB1081
505 FORO=1TO14:PRINT"[177]";:NEXT
514 C%=0:R%=9:GOSUB1081:POKE646,2
523 FORO=0TO39:PRINT"[183]";:NEXT
532 R%=11:GOSUB1081
541 FORO=0TO39:PRINT"[175]";:NEXT
550 INAROW=0:POKE646,LT
559 R0=RND(-RND(0))
568 IFLV>0THENR1=INT(RND(R0)*I):IFR1=0THEN568
577 IFLV=0THENR1=R1+1:IFR1>22THEN964
586 R%=14:GOSUB1135:R%=15:GOSUB1135:GOSUB1081
595 X=YES+NO
604 PRINT"[212]OTAL=";X
605 PRINT"[212]YPE  /  [144]TO EXIT.                 ":PRINT"[208]RESS [210][197][212][213][210][206] WHEN READY."
606 GETP$
607 IFP$<>CHR$(13)ANDP$<>"/"THEN606
613 IFP$="/"THEN964
622 C%=21-(LEN(J$(R1))/2):R%=10
631 GOSUB1081:PRINTJ$(R1)
640 LIM=SP:IFLIM>0THENGOSUB1180
649 R%=10:GOSUB1135:R%=14:GOSUB1135
658 R%=15:GOSUB1135:R%=16:GOSUB1135:R%=17:GOSUB1135:R%=18:GOSUB1135
667 C%=0:R%=14:GOSUB1081
676 PRINT"[197]NTER WHAT YOU SAW BELOW."
677 PRINT"([197]NTER R[144] TO REDISPLAY IT.)
678 [153]"->";BK$;:NC[178]40:MO[178]154:[141]60500:[139]A$[178]""[167]A$[178][199](13)
685 [139]A$[178]"/"[167]964
694 [139]A$[178]"R"[167]622
703 [139]A$[178]J$(R1)[167]YES[178]YES[170]1
712 [139]A$[179][177]J$(R1)[167]NO[178]NO[170]1
721 H%[178]5:Q%[178]5
730 [139]SP[178]1[167]H%[178]7:Q%[178]6
739 [139]SP[178]0[167]H%[178]10:Q%[178]7
748 [139]A$[179][177]J$(R1)[167]856
757 [151]646,H%
766 C%[178]INAROW[170]13:R%[178]Q%:[141]1081:[153]"*"
775 [151]646,LT
784 INAROW[178]INAROW[170]1
793 [139]INAROW[179]14[167]568
802 INAROW[178]0
811 SP[178]SP[171]1:[139]SP[177][178]0[167]559
820 SP[178]2:LV[178]LV[170]1:[139]LV[179][178]8[167]181
829 [153]"LOAD":R%[178]10:C%[178]10:[153]"(null)OU'VE MASTERED THE COURSE! LENONGRATULATIONS"
838 [137]964
847 [137]559
856 R%[178]17:[141]1135
865 [151]54296,15:LIM[178]1:[141]1180:[151]54296,0
874 R%[178]17:C%[178]0:[141]1081
883 [153]"RIGHT$T SHOULD BE"
892 R%[178]19:C%[178]2:[141]1081
901 [153]J$(R1)
910 R%[178]21:C%[178]0:[141]1081
919 [153]"(null)RESS (null)VAL(null)(null)(null)(null) TO CONTINUE"
920 [161]A$:[139]A$[179][177][199](13)[167]920
928 [129]N[178]16[164]21:R%[178]N:[141]1135:[130]
937 C%[178]INAROW:R%[178]Q%:[141]1135
946 INAROW[178]0
955 [137]559
964 LIM[178]50:[141]1180:[153]"LOAD"
973 X[178]YES[170]NO
982 [139]X[179][177]0[167]P[178][181](10000[172](YES[173]X))[173]100
991 [153]"";N$:[153]
1000 [153]"(null)IGHT= ";YES;
1009 [153]"  (null)RONG= ";NO;
1018 [153]"  (null)OTAL= ";YES[170]NO
1027 [153]:[153]"(null)CORE= ";P;"%":[153]
1036 [153]:[153]"(null)RESS ANY KEY FOR MENU";
1045 [161]L$:[139]L$[178]""[167]1045
1054 [137]5
1063 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
1064 [139]ER[179][177]63[167][128]
1065 [153]"LOAD";:[147]"HELLO CONNECT",8
1072 [128]
1081 [143] MOVE CURSOR TO A POSITION
1090 C$[178]""
1099 R$[178]""
1108 [153]""
1117 [153][200](C$,C%);[200](R$,R%);
1126 [142]
1135 [143] ERASE A ROW & MOVE
1144 C%[178]0:[141]1081
1153 [153]"                                        "
1162 [141]1081
1171 [142]
1180 [143] PAUSE
1189 [129]O[178]1[164]LIM:XX[178][191](45):[130]
1198 [142]
1207 [143] TIME THE PRACTICE READING
1216 [153]"LOAD":R%[178]12:C%[178]10:[141]1081
1225 [151]646,6
1234 [153]"(null)RESS ANY KEY TO STARTWAIT"
1243 [161]L$:[139]L$[178]""[167]1243
1252 T0$[178]TIME$
1261 [153]"LOAD":R%[178]12:C%[178]10:[141]1081
1270 [151]646,2
1279 [153]"(null)RESS ANY KEY TO STOPWAIT"
1288 [161]L$:[139]L$[178]""[167]1288
1297 T1$[178]TIME$:T[178][197](T0$):[141]1459:T0[178]T
1306 T[178][197](T1$):[141]1459:T[178]T[171]T0:[139]T[178]0[167]T[178]1
1315 [151]646,0:[153]"LOAD"
1333 [153]"VALNTER NUMBER OF WORDS:";BK$;:MO[178]2:NC[178]15:[141]60500:Q$[178]A$
1342 D[178][197](Q$)
1351 [153]"LOAD":R%[178]5:C%[178]0:[141]1081
1360 [153]"ELAPSED  TIME   SPEED"
1369 R%[178]6:[141]1081
1378 [153]"  (MINUTES)     (WPM)"
1387 T[178][181](100[172](T[173]60))[173]100
1396 SPD[178][181](D[173]T):R%[178]8
1405 C%[178]3:[141]1081:[153]T
1414 C%[178]16:[141]1081:[153]SPD
1423 R%[178]13:C%[178]0:[141]1081
1432 [153]"(null)RESS ANY KEY TO RETURN TO THE MENU";
1441 [161]L$:[139]L$[178]""[167]1441
1450 [137]5
1459 [143] CONVERT TO SECONDS
1468 HRS[178][181](T[173]10000)
1477 T[178]T[171](10000[172]HRS)
1486 MIN[178][181](T[173]100)
1495 SEC[178]T[171](100[172]MIN)
1504 T[178]3600[172]HRS[170]60[172]MIN[170]SEC
1513 [142]
8000 F$[178]"FLASH CREATE"
8010 [153]"LOADLOAD";[199](34);F$;[199](34);",8"
8020 [153]"RUN"
8030 [151]631,13:[151]632,13:[151]198,2:[162]
60100 PN$[178]"(null)(null)VALVALSTR$ (null)VALATNSTR$":AN$[178]"PEEK(null):  MID$VAL(null)(null)(null) VAL. CHR$(null)ASCASC"
60110 BO[178]11:SC[178]15:CL[178]06:C1[178]12:C2[178]00:C3[178]12:C4[178]00:C5[178]00:C6[178]02:C7[178]09
60120 [143] BO - BORDER COLOR
60121 [143] SC - SCREEN COLOR
60122 [143] CL - COLOR POKED ON BORDER
60123 [143] C1 - TOP BOX OUTSIDE COLOR
60124 [143] C2 - TOP BOX INSIDE COLOR
60125 [143] C3 - BOTTOM BOX OUTSIDE COLOR
60126 [143] C4 - BOTTOM BOX INSIDE COLOR
60127 [143] C5 - 'COPYRIGHT' COLOR
60128 [143] C6 - 'PROGRAM NAME' COLOR
60129 [143] C7 - 'AUTHORS NAME' COLOR
60130 [151]53280,BO:[151]53281,SC:[153]"LOAD";
60140 [151]646,C1:[153]"  TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
60150 [151]646,C2:[153]"  FN        (null)(null)ATNSTR$(null)(null)ATN(null) (null)(null)VAL(null)VAL(null)(null)(null):        THEN"
60170 [151]646,C1:[153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
60180 [151]646,C6:[153]""[163]20[171][195](PN$)[173]2);PN$
60190 [151]646,C7:[153]""[163]20[171][195](AN$)[173]2);AN$
60200 [151]646,C5:[153]""[163]13)"LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1986"
60210 [153][163]9)"LEN(null)(null)(null)(null)STR$(null)(null)VAL (null)(null)PEEK(null)RIGHT$LENATN(null)RIGHT$(null)(null)(null)"
60220 [151]646,C3:[153]"  TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
60230 [151]646,C4:[153]"  FN                                  THEN"
60240 [151]646,C3:[153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":LE[178]1044:RI[178]1043
60250 [151]LE,98:[151]RI,98:LE[178]LE[171]1:RI[178]RI[170]1
60260 CO[178]54272:[151]RI[170]CO,CL:[151]LE[170]CO,CL
60270 [139]LE[178]1025[167]60290
60280 [137]60250
60290 [151]LE,108:[151]RI,123:[151]LE[170]CO,CL:[151]RI[170]CO,CL:[151]646,CL
60300 LE[178]LE[170]40:RI[178]RI[170]40:[139]LE[178]1985[167]60330
60305 [139]LE[178]1185[167][153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
60306 [139]LE[178]1825[167][153]"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
60310 [151]LE,225:[151]RI,97:[151]LE[170]CO,CL:[151]RI[170]CO,CL
60320 [137]60300
60330 [151]LE,124:[151]RI,126:[151]LE[170]CO,CL:[151]RI[170]CO,CL
60340 LE[178]LE[170]1:RI[178]RI[171]1:[139]LE[178]2004[167][151]198,.:[137]60360
60350 [151]LE,226:[151]RI,226:[151]LE[170]CO,CL:[151]RI[170]CO,CL:[137]60340
60360 [153]"";
60370 [151]646,C2:[153]"FN(null)RESS THE [(null)(null)ATNLENVAL PEEKATN(null)] TO CONTINUE.THEN"
60380 [129]A[178]1[164]100
60390 [161]A$:[139]A$[178]" "[176]A$[178]"CLOSE"[167][142]
60400 [130]
60410 [153]"";
60420 [153]"FN                                  THEN"
60430 [129]A[178]1[164]100
60440 [161]A$:[139]A$[178]" "[176]A$[178]"CLOSE"[167][142]
60450 [130]
60460 [137]60360
60500 [129]Z8[178]1[164]NC
60502 [161]A$:[139]A$[178]""[167]60502
60503 [139]A$[178]"LOAD"[176]A$[178]""[176]A$[178]"SAVE"[176]A$[178]"ON"[176]A$[178]"CMD"[176]A$[178]""[176]A$[178]""[167]60502
60504 [139]A$[178][199](13)[176]A$[178][199](141)[167][153]"CMD ":[137]60544
60506 [139]A$[178]" "[176]A$[178]"CLOSE"[167]60540
60508 [139]A$[178][199](20)[175]Z8[178]1[167]60502
60510 [139]A$[178][199](20)[167]Z8[178]Z8[171]1:[153]"CMDCMD  CMDCMD";BK$;:[137]60502
60520 [139]A$[177]"/"[175]A$[179]":"[175](MO[175]2)[167]60540:NUMBERS
60522 [139]A$[177]" "[175]A$[179]"*"[175](MO[175]4)[167]60540:SH[139]T NUMBERS
60524 [139]A$[177]"TAN"[175]A$[179]"(null)"[175](MO[175]8)[167]60540:UPPERCASE CHARACTERS
60526 [139]A$[177]"@"[175]A$[179]"["[175](MO[175]16)[167]60540:LOWERCASE CHARACTERS
60528 [139]A$[177][199](160)[175]A$[179][199](192)[175](MO[175]32)[167]60540:COMMOD[176]E CHARACTERS
60530 [139]A$[177][178][199](0)[175]A$[179]""[175](MO[175]64)[167]60540:CTRL CHARACTERS
60532 [139]A$[177]")"[175]A$[179]"0"[175](MO[175]128)[167]60540:MISC CHARACTERS GROUP 1
60534 [139]A$[177]"9"[175]A$[179]"A"[175](MO[175]128)[167]60540:MISC CHARACTERS GROUP 2
60536 [139]A$[177]"Z"[175]A$[179]"FOR"[175](MO[175]128)[167]60540:MISC CHARACTERS GROUP 3
60538 [137]60502
60540 [153]"CMD";A$;:[151]212,.:[153]BK$;
60542 G$(Z8)[178]A$:[130]
60544 [153]"CMDWAIT "
60546 A$[178]"":[129]A[178]1[164]Z8[171]1:A$[178]A$[170]G$(A):[130]:[139]Z8[178]1[167]A$[178]""
60548 [142]